// This file was decompiled using SASCM.ini published on 2020-11-11
{$CLEO .CS}

03A4: script_name "M60BUY" 

:M60BUY_10
0001: wait 0 ms 
00D6: if and
0256:   player 0 defined 
0ADC:   test_cheat "M60BUY" 
004D: jump_if_false @M60BUY_10 
00D6: if 
010A:   player $PLAYER_CHAR money > 11999 
004D: jump_if_false @M60BUY_292 
0001: wait 0 ms 
0208: 3@ = random_float_in_ranges -7.0 10.0 
0208: 4@ = random_float_in_ranges -10.0 7.0 
04C4: store_coords_to $X $Y $Z from_actor $PLAYER_ACTOR with_offset 3@ 4@ -1.0 
0107: $OBJECAT = create_object 1224 at $X $Y $Z 
0382: set_object $OBJECAT collision_detection 1 
0400: store_coords_to $X2 $Y2 $Z2 from_object $OBJECAT with_offset 0.0 0.0 0.0 
0213: $M60AR = create_pickup 12401 type 3 at $X2 $Y2 $Z2 
03DC: $M60ARM = create_marker_above_pickup $M60AR 

:M60BUY_197
0001: wait 0 ms 
00D6: if 
0214:   pickup $M60AR picked_up 
004D: jump_if_false @M60BUY_197 
0002: jump @M60BUY_224 

:M60BUY_224
0247: load_model 12401 
038B: load_requested_models 
0001: wait 0 ms 
00D6: if 
0248:   model 12401 available 
004D: jump_if_false @M60BUY_224 
01B2: give_actor $PLAYER_ACTOR weapon 71 ammo 240 // Load the weapon model before using this 
0002: jump @M60BUY_268 

:M60BUY_268
0001: wait 0 ms 
0109: player $PLAYER_CHAR money += -12000 
01C4: remove_references_to_object $OBJECAT // This object will now disappear when the player looks away 
0002: jump @M60BUY_10 

:M60BUY_292
0001: wait 0 ms 
0512: show_permanent_text_box 'NOMONEY' 
0001: wait 2000 ms 
03E6: remove_text_box 
0002: jump @M60BUY_10 
